home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmigaPlus / Begleitmaterial / 50Tools / Grafik / PerfectPaint / rexx / Anim / DbFrame.rx < prev    next >
Text File  |  2003-01-14  |  1KB  |  87 lines
  1. /*     arexx Script */
  2.  
  3.     options results
  4.     parse ARG Port b
  5.     
  6.     ADDRESS value Port
  7.  
  8.     pp_CountFrames
  9.     nb=result
  10.     if nb<2 then do
  11.         pp_Warn 'Make*an*Anim*first.'
  12.         EXIT
  13.     end
  14.  
  15.     pp_GetCurrentBrush
  16.     B0=result
  17.  
  18.     pp_GetWidth
  19.     w=result
  20.     pp_GetHeight
  21.     h=result
  22.  
  23.     Md=1
  24.     s0=1
  25.     s1=nb
  26.     pp_DialogInit 250 97 "*Double*Each*Frame*" 3
  27.         pp_Slider 0 100 5 100 16 "Start*Frame*#" 1 1 nb s0
  28.         pp_Slider 1 100 25 100 16 "End*Frame*#" 1 1 nb s1
  29.         pp_Cycle 2 100 45 100 16 "Mode" 1 "Clone|Mix" 0
  30.     pp_Dialog
  31.     rc=result
  32.     IF rc=0 then DO
  33.         EXIT
  34.     END        
  35.         
  36.     pp_GetDialog 0
  37.     s0=result
  38.  
  39.     pp_GetDialog 1
  40.     s1=result
  41.  
  42.     pp_GetDialog 2
  43.     Md=result
  44.  
  45.     IF Md=1 then DO
  46.         pp_FindEmptyBrush
  47.         Brush=result
  48.         if Brush=-1 then DO
  49.             pp_Warn "can't*find*empty|Brush."
  50.             EXIT        
  51.         END
  52.         pp_SetBrush Brush    
  53.     END
  54.  
  55.     pp_GotoFrame s0
  56.  
  57.     pp_BrushOpacity 50
  58.     Do i=s0 to s1
  59.         pp_AddFrames 1
  60.         IF result=0 then Do
  61.             pp_NextFrame
  62.             pp_NextFrame
  63.             IF Md=1 then DO
  64.                 IF i<nb then DO
  65.                     pp_PickBrush 0 0 W H 1
  66.                     pp_PreviousFrame
  67.                     pp_Plot w/2 h/2
  68.                     pp_NextFrame            
  69.                 END
  70.             END
  71.         END        
  72.         ELSE DO
  73.             i=s1+1
  74.         END
  75.     END
  76.     pp_BrushOpacity 100
  77.     
  78.     pp_GotoFrame s0
  79.  
  80.     IF Md=1 then DO
  81.         pp_FreeBrush
  82.         pp_SetBrush B0    
  83.     END
  84.  
  85.     EXIT
  86.  
  87.